﻿Imports kplusEntity.KPLUS.Entity
Imports System.Data.OracleClient
Imports kplusData.KPLUS.Data

Namespace KPLUS.Logic
    Public Class LPBI
        Dim objDPBI As New DPBI

        Public Function fListarPBI(ByVal strConexion As String) As List(Of EPBI)
            Dim lstPBI As New List(Of EPBI)
            Using con As New OracleConnection(strConexion)
                con.Open()
                lstPBI = objDPBI.fListarPBI(con)
            End Using
            Return (lstPBI)
        End Function
    End Class
End Namespace

